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How do you like the new name then? Several people wrote saying 
that they thought just plain "Newsletter" was rather dry. From 
the various suggested alternatives, this one had a nice ring 
about it. Fresumably, oak leaves grow from Acorns. 


With this issue the Users’ Group becomes one year old. Many 
members who joined іг 1982 started with NL-#1 and have гош 
received four issues. These members will find a renewal slip 
included. If you think that membership іп the Group is 
worthwhile and the Newsletter worth reading please take the 
trouble to return this. Due to the high cost of postage we will 
not be sending out reminders so make sure of getting the October 
issue of бақ Leaves by mailing your renewal right away. 


The major expenses of the Users’ Group are printing and postage, 
Frinting costs can only Бе kept reasonable if the number of 
members stays high. Mailing costs could be reduced by mailing 
several copies to one address. In situations where several 
people work together ог meet regularly they might want to 
consider a group affiliation. Forty dollars would cover the cost 
of sending five copies of each issue of the Newsletter for a 
year and the library of programs could be made available оп 
cassette for distribution within the group. 


The Newsletter depends on contributions from members. You have 
probably written something or found some trick which would be of 
interest to other members. Why not send it іп and let us all 
share ite 


Back. issues of the Newsletter car be obtained hy sending $3.00 
per issue, or $7.00 for issues #1 to #3 together with the 
introductory NL-#0. 


John Wood 
duly 1983. 


This Newsletter is published by Atom Users’ Group Canada, 
812 Cabot Trail, Milton, ONT. LOT 3M8 for the benefit of members 
of the Group, 
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QUTFUTTING TO А TELETYFE MACHINE 


Robert Paquette has sent more information on sending TTY signals 
through the cassette output plug of the Atom. These signals are 
standard ASCII TTY words consisting of three parts. 

(1) The start bit which is a 0, 

(2) The seven bit ASCII character, 

(3) The two stop bits which are ones. 
Due to the logic circuitry of the cassette output the signals 
are inverted, Therefore a transister (connected іп a common 
emitter mode) must be used to invert the signal and also act as 
a buffer. On the TTY Model 35, Robert hand wired the transistor 
right on the interface card of the TTY. 


In each of the programs there is. а delay routine which sets the 
length of each bit to 9.09 msec (110 baud rate). The X and Y 
registers are used as counters, Тһе Y register has a large 
effect on the timing and the X register fine tunes it. Тһе 
values. given іп the programs are not the computed values, but 
rather those Robert has found to work. (He suspects that the 
motor speed on his TTY may be off). 


In these assembler programs all labels are initialised to Е. 
This is to avoid ап error 156 which results when by chance the 
label is set to an illegal value on the first pass. (The Atom 
assembler will mot accept JMP  instrunctions to zero page 
addresses.) In the second pass the values of the labels аге 
known and are correctly assigned. 


In the TTY LIST program you must set ?PCTOF+1)=3 which іс what 
the program is looking for to stop the printer. In the TTY TEXT 
program a value of 3 will also stop the printer. The value of 
three (CONTROL С) is the standard ASCII code for ETX (erd of 
text). 


The TTY TEXT program is loaded into normal memory space to print 
out text stored in the graphics space. This is for use with the 
Text Frocessor also sent іп by Robert  Faquette and listed in 
NL-#2, 


The LIST program should be entered or loaded іп upper (araphics) 
memory to list а program in the normal memory space starting at 
#2900. To do this type ?#12=#82 and NEW then enter or LOAD the 
ргоогам. This can be done whilst the program to be listed is 
resident in memory, Once the TTY LIST program is in memory it 
can be used to list any programs which are put іп the normal 
memory space. The programs should mot be RUN if they use the 
eraphics modes. To use the LIST program type ?#12=+82 then OLD 
and RUN. Each command is followed by a "return", 


ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
атам ONE LINER 
DOPRINT $CAESRNDAZ229*30)$;UNTIL 0 


It doesn’t do much but it looks nice on s good sharp screen, 





1.КЕМ 
10 КЕМ 
20 КЕМ 
30 КЕМ 
35 КЕМ 
40 DIM 


XXXttu textxxx bu ROBERT PAQUETTE 

FROGRAM FOR COFYING TEXT STARTING AT #8200 

#90 ТЕМЕ. STORAGE; %91,%92 ADD. FOR TEXT 

#93 Y TEXT FOINTER; #94 ТЕМЕ, STORAGE; #95 MARGIN 
#96 TEMF. STORAGE 

LLC10),NNC100,F 0-1) 


50 9%90-0;%97і1л0;7%92х481 
60 ?4%493л0;7%94с0;?ЖЕ002-1 


70 ҒОК 


Ns0TOI0$PSLLONDOSPINNOCNO =Р М, М 


80 F.$12" IS THE MARGIN 2.5 CM OR 8 CM''"INFUT 1 OR 2"32N.A 
90 IF А<1 OR A22 C.80 


IF A=13 ?£f95-1 
IF А=2; ?$95-10 


Р.%12" TURN PRINTER QN"'" AND FRESS SFACEBAR"’ 


LINKt*FFES3;P.$21 


140 FOR 
150L 


N=1 TO 2;DIMF(-1) 


160: NNINDELAY ROUTINE 


170 STX 
180 LDX 
190 LDY 
200 :NN2 
210 ЕМЕ 
220 DEY 
230 ЕМЕ 
240 LDX 


250 RTS 


#90 
845 
ев 

DEX 
NN2 


NN2 
%90 


260%ММЗХРКІМТ ROUTINE 


270 STA 
280 LDA 
290 STA 
300 JSR 
310 LDX 
320. LDA 
330 3¢NN4 
340 STA 
350 JSR 
360 ROR 
370 LDA 
380 DEX 
390 ЕМЕ 
400 LDA 
410 STA 
420 JSR 
430 JSR 
440 RTS 


194 

80 

ЖЕй02 START БІТ 
NN1 

98 BIT COUNT 
494 

AND 081 

+E002 

NN1 

#94 

#94 


NN4 

21 

tE002 

NNi STOF БІТ 
NNi STOF BIT 


4S0¢NNSN\CRLF ROUTINE 


460 LDA 
470 JSR 
480 LDA 


490 JSR NN3;LDX II STX %96 


813 CR 
NN3 
@id LF 


FOR SALE 
464K ATOM - $550. 


Frinter 
+ Data Base + 


Henry Don R.R.d1 


Interface + Cable. 
Games Fack 


300 :$NN7NMARGIN ROUTINE 
910 LDA 032;LDX #96; JNSR ММЗ 
520 DEC 496%ЕМЕ NN7 
530 JMF LL1 

чай: ММО LDA G1 ETX ROUTINE 
350 STA fE002:RTS 
960:LL8 JSR ММ 
380:LL1 LDY 493 

390 ENE LL2 

600 INC #92 
91021121064 (%912,Ү 
620 INC #93 

630 CMP ӨЗ ETX 

640 ЕМЕ LL3 

650 JMF NNG 

6603LL3 CMF @13 CR 
670 BNE LL4 

680 JMF NNS 

6903LL4 CMF @32 

700 BCS LLS 

710 JMF LL1 

720:LLS CMF (896 

230 ЕСС 116 

740 JMF LL1 

790:LL6 JSR NN3 

760 JMF LL1 

7701 

780 М.М 

790 FP.$6^'" SENDING TO THE РКІМТЕК, "77 
800 LINK Ltd 

910 P." END OF TEXT"? 
820 END 


i2kK RAM + 12K ROM + Colour board, 


Word-Fack + Toolbox. Business Pack 


1 + 3 Books. In perfect working order. 
Hill, ONT. LOH 140 


1 REM Xxxttu listxxx by ROBERT FAQUETTE 


10 REM TELETYPE ROUTINE FOR 

20 КЕМ FRINTING A LISTING AT 

25 REM MEMORY LOCATION 2900 

30 DIM KKOL02,.LLCIODO,NN(IUDO,PC-1) 
35 FOR Ме0 TO 10 

40 KKONOSPRLLONOSPINNCNOSPjN, 

90 PHEPO=0 3 949іс0) ?£$92-428 

60 9%930) ?%94х0; PHOS= 0 

70 ?%?ӛлі0й)?%97х%ф27%?%О98< ФЕ 

80 9%99ч3) 949й4%64) E E= Q 

90 TEOCstiA:;?*9D-0; E9E-0 

100 ?4X9Fz057?f60-05?45002-z1,;?441:0 


110 P.$12"TURN FRINTER ON AND FRESS" 


118 F."ZSPFACE BARS" МК $FFES 


120 P.'''"SENDING TO THE FRINTER'’ $2: 


130 FORNs1 TO2;DIM FC-1) 
140; iKKi LDY QGO;STY #95 
150:KK2 LDX 00; 

160:KK3 LDA FFF FSEC 

170 SEC %96,Ү;5ТА #9F 

180 LDA Жай; INY 

190 SEC #96,Y;BCC KK4 

200 STA FAD ІМХ;ПЕУ UMP ККЗ 
210:KK4 БЕУ LDA ЖОҒ 

220 ADC Fó Y STA #9F 

230 TXA;BNE ККЕ 

240 EIT %95%ЕМІ ККӨҘЕРІ КК? 
290tKKS$ LOX BEBO STX #95 
Z60:KKó ORA C#EBOSSTY ЖАТ 
270 JSR NN3;LDY ЖА1 
280:КК7 ІМҮРІМҮ 

290 CRY 088 ЕСС KKZ 

300 LDA #9F SORA GT30 

310 JSR NN3;JMP LLI 
320*NN1 \DELAY ROUTINE 
330 STX £90;LDX G65;LDY G8 
340:NNZ рЕХҘ ЕМЕ ММ2 


280 5ТА 
390 JSR 
400 LDA 
4101NN4 
420 JSR 
430 LDA 
440 LDA 
450 JSR 
460 JSR 
470 RTS 
480 INNS 
490 LDA 
500 LDA 
510 LDA 
520 LDA 
530 JMF 
5401NN6 
550 STA 
ӘЛІН 
570 INC 
8011.2 
590 LDY 
600 STA 
610817 
620 STA 
630 JMF 
6401LL8 
650 JME 
6601LL3 
670 JMP 
6801:LL4 
690 JMP 
700115 
710 CMF 
720 LDA 
7301LL9 
7401LL6 


35002 START EXT 
NN1;LDX 08 EXT CNT 
#94 i 

AND 61; STA +6002 
NNI ROR #94 

494 бПЕХҘЕМЕ ММА 

Gi STA E002 

NNI STOF EIT 
NNI STOF BIT 


NCRLF ROUTINE 
Q13:JSR ММЗ 
RIOS JSR ММЗ 
@32; JSR ММЗ 
01;6ТА #9E 
LL. t 
LDA 81 ETX ROUTINE 
ФЕ002;КТ8 
LDY ЖӘЗ ЕМЕ LLZ 
#92 
LDA (%91),Ү;ІМС #93 
HOES СРҮ ӨІЗЕМЕ 117 
ЖА0;ТЫС #€9E3 JMF LLL 
CRY 82%ЕМЕ 18 
T9F;LDY 80;5ТҮ %9Е 
KK1 
CMF @3; ENE LL3 
NNé 
CMF @I3FENE LL4 
NNS. 

CMF Q32;BCS LLS 
LL. i 

CMF G96:BCC 116 
8128 ЕСС LLO 
032i JME LLG 

SEC SEC 0832 

JSR NN3; JUMP LLL 


FLAG 


350 DEYJENE NN2j;LDX €90;RTS 73801:N.N 

360 tNN3 \PRINT ROUTINE 760 P.$6:LINK LLL 

370 STA #943LDA 80 770 F.'*" END ОҒ LISTING’ 
780 END 


ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
RADIO CANADA / С.в. С 


There is a very keen local group of Atom users at C.E.C. Radio 
in Toronto. They would like to get in touch with а Similar group 
which they believe to exist at Radio Canada in Montreal. Tf anu 
members of the Momtreal group are readers of the Newsletter 
would they please contact Gerry Sampson іп Toronto  -(416) 
925-3311 local 2044. Respondez егі Francais s'il vous plaise 








GETTING ON LINE 


With the recent reductions in prices for modems and the growth 
of free Bulletin Board Systems everybody wants to get their Atom 
on line. We are grateful to Faul Flesman, publisher of InfoAge 
for permission to reprint parts of әп article which appeared in 
the January 1983 issue of that magazine. "Educating Your Atom" 
was originally written by Andrew Nisbet and describes the 
building of am RS232-C port for the Atom with s bare-bones 
driver routine. The board has been built by a Users’ Group 
member and the following is а slightly modified version which 
Daniel Dulong (39 Fiper’s Cr. Kirkland, Quebec, НӘН 3J3) has 
working. Но used two 9V batteries for the +90 and -9V required 
for the  RSZ32-U with pin 7 as zero (aground). Тһе parts cost 
around $35.00 and it plugs in FLó. ICs 2,3,4 and 5 should ве 
fitted in the Atom to. use the bus extension. See page Z3 of the 
Atom Technical Manual for details. 


A suitable 64 contact male header to go on the Atom is Fanduit 
part mumber 120-064-0536, this hes eJjecter/latches to mate with 
their flat cable connector number 120-064-455 with strain relief 
part 100-000-032, A wire wrapping male header for the project 
board would Бе Fanduit 100-064-051 and suitable 64 way flat 
cable is 050ҒЕ28У64-С. The length of this should be kept short 
unless buffers are also to be fitted on the project board. 
Actually, as only side A of the bus is used (the row of holes 
second from the edee of the Atom FC board), a single 32 way 
header strip could be used with 32 conducter flat cable having 
2100" centrelines, and appropriate female connectors, 


The hase address utilised is #400 (hexadecimal) and the register 
addresses for the 5Y6551 аге? 


+400 Data Register #401 Status Register 
+402 Command Register #403 Control Register 


The RS232-C pin connections аге? 


Transmitted Data 
Request To Send 
Date Set Ready 
Carrier Detect 


Earth Ground 
Received Date 
Clear To Send 
Signal Ground 
Data Terminal Ready 


ON Ge 
Om bh 


2 


The basic components are the 74L$260 and 741504 to decode the 
base address, the Sunertek SY6551 UART, a 1.8432 MHz crystal to 
control the baud rate and а 1488 and 14896 to convert the TTL 
signals from the UART to RS232-C compatible signals, TRIB 
44-4 o ا جي‎ compatiple_£_£thor these _£_£_lest two chips gre pot. 
Paci » 


Тһе driver routine initializes the Command and Control 
registers, sets up әп ASCII character code table and polls the 
Status Register and Keyboard alternatively, Тһе routine 
continues looping until the carrier signal is го longer 


detected. 


АТОМ К5232-С BOARD 


GND 
cso 
csi 
RES 
RxC 
XTAL1 
XTAL2 
RTS 
CTS 
TxD 


DiR - 


RxD 
RSO 
PS1 


25 ^W D susit 
COMMECTOR 


l 2024 7 4835 


оочольом- 








IRQ 


SY6551 


744.5240 


° 


742504 


1-243241 


<мо 


Data Bus 
Chip Select 
Internal Synchronization 
Register Select 
Read/Write Control 
XTAL1, XTAL2 Internal Baud Rate Generator Crystal 
Connections 
TxD Transmit Data 
RxC External Transmit/Receive Clock 
RxD Receive Data 
CTS Ciear-to-Send 
RTS Request-to-Send 
DCD Data Carrier Detect 
DSR Data Set Ready 
DTR Data Terminal Ready 
IRO Interrupt Request 
RES Device Reset 
“сс. GND Power, Ground 


Read from Receive buffer 
Write to Transmit buffer 


Read from Status register 

Write to device reset 

Read from, or write to Command register 
Read from, or write to Control register 





» №№ 
eR N 


(А Row) 


Тары АҒЫСТЫ» 
PL 6 ATOM Bus 


^ 


Tristate, Bidirectional 
Input 
Input 
Input 
Input 


Output 

Input or Output 
Input 

Input 

Output 

Input 

Input 

Output 

Output 

Input 
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INTERESTING ADDRESSES 


You may want to change the title to "Interesting Address" as we 
are only looking at one this time. In fact we sre only going to 
talk about half of one. The lower four bits of 2%Б002 make up a 
four bit output port available on all Atoms, On power ир 
address *E002 is set up as port with four output bits and four 
input bits. Some information is given on page 194 of AT&P and a 
little on page 15 of the Atom Technical Manual, but there is not 
much іп the way of examples as to how it can be used. : 


Although each of the four lower bits has some function in the 
inner workings of the Atom, we can also make them do our 
bidding, Тһе circuit diagram and the numbering system for DIN 
plugos almost look ss though they were intended to make things 
more difficult. 


Looking at the TAFE І/0 socket on the back of the Atom you will 
see that it is circular with a square notch at the bottom and 
seven contacts around it. Starting at the notch and going round 
Clock-wise these are numbered? 





Pin 2 is the ground, pin 1 is normally the output to the 
cassette and pin 3 is input from ine cassette, 


The least significant bit of ?XE002 -bit 0 appears on pin ó., If 
you set ?+E002 equal to any odd number a voltage of around 3V 
can be measured on ріп 6+ With ?€E002 equal to an even number 
(lsb=0) the voltage will be less than 0.50. Similarly the next 
significant bit of ?+Е002 appears on pin 4. If bits 0 and 1 are 
both set then a 2.4 kHz signal will also appear on pin 1, the 
output to the cassette. Eits 2 and 3 appear on pins 5 and 7 
respectively, 


If you sre пої using the cassette system then bits Û, 1 and 3 
can safely be used for other purposes. Unfortunately the COS 
changes each of these bits leaving only bit 2, Bit 2 is 
affected when the speaker is accessed 60 make sure you dont 
generate any errors when using this as a port, 


The simplest way to set one bit in a location is .to use the OR 
functions — 


9%Е002-7%ЕБ00218 | is obtained by a shifted backslash 5 
To change а Single bit ме the Exclusive -OR function, Tim 
Mackinnon uses this in his colour graphics program in this 


issue, to switch between the colour combinations. Тһе form isi- 
?%Б002-?%Б002:8 
As 8 is 2 raised to the power 3 this will change bit three, 


Careful reading of Robert Faquette'/s output programs will show 
that he also uses Fort C. He sends the serial data by toagling 
bit 0. By keeping bit 1 at zero he disables the 2.4 kHz sianal 
and picks up the steady voltage he needs on the reqular cassette 


pin ~pin 1. 





Tnese output pins can drive one TTL load, that is they can sink 
1.УмАа at 0,45) end source 200406 at 2.44. The circuits given on 
page ZZ of the Atom Technical Manual, for use with the 6522 VIA 


could edually well be used with Fort C. The first circuit 
shown, could for example he used to control the remote 


start/stop of s cassette recorder, 


The following short routine will save a program to tape, with 
control of the recorder by pin 5 of SKZ (bit 2 of PHEOGOZ). You 
must of course preset the recorder to RECORD and ensure that the 
interface circuit is appropriate for your machine and does not 
overload the Atom. 


1000 PEEOOZ=?#b002 | 4 
1010 SAVE" FILENAME" 
1020 PHEOOZ=9#B002% 
1030 END 


If these lines аге added at the end of a program it can be SAVEd 
bh typing "GOTO 1000", 


By changing line 1010 to  XRUN"FILENAME" and adding the routines 
described in  NL-€$2 and  NL-€$3 it would be possible to have ә 
series of programs which would chain run, stopping and starting 
the cassette recorder as necessest. 





Before setting up the recorder you can ensure that bit 2 is off 
by entering-  ?EEOQ02z0 i 

| 
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| THE ATOM EUS 
| 
The circuit Сбізагам and Technical Manual are very brief when 
discussing the the hus on  FL6 and РІ?» The two rows of holes 
nearest the edge of the Atom pc board are FLG and the next two 
rows are FLZ. The second. row of holes in from the edge carry 
side A of FLé and the third row is side A of PLZ. The other two 


rows are the E sides. Note that this labelling convention 
reverses the A and BE labels from those used on standard card 
connectors, However using these labels side A has all the 


address lines, data lines and the most important control lines. 
Side E has Fort A and Fort E with the rest of the control lines, 
This conforms to other published data. Тһе chart below shows 
which lines are оп which pins. The #1 pins are closest to the 
side о? the Atom and the #32 pins closer to the center. 








NNT £0 C4 BON HN OD TMA A OM m > о ене > 
сай oo cic 00 < < < < aw rez е5 
оғы Book й. Oo ae mom 

| 
l 
| 
| 
| : = 
PINT OOF ON WINTON mH ON MINE OO. N mH O O N AO hm CU > 
«E d UD e o 03 C UL XE X XL «E «0 40 AI 4X OO с anasto on а <А Ур O 
+ < TEE E тс < < ші 
| 22 E ап 
та C4 С TIN 540 ОС оз 04 Сә ҸО 7 OR OR O mH C4 O ҸО) O М. O O O mN 
ті ті т езі ті ті әзі ті ri HNN 04 СУ 04 04 04 04 04 04 O O OF 


ERRATA | 


We lost line 10 of XLUNACYX by Colin Hinz in NL-#3, Here it is? 


10 баны ыды аласа ыы ыз 
There were a couple of othe errors but these were easily Lpottad. 
A closing bracket was missed K(1) on line 30 апі а "p" came out 
as "7" on line 50. I hope this crazy lunacy didn’t drive you mad, 


Others have reported that XMORSEX by Daniel Dulong gave problems. 
It works if, after trying to run it you press BREAK then type 
OLD, and RUN again. The reason for this is that the assembler 
lines use the variable L but this is not set until line 620, 
after the machine code is assembled. Adding a new line? 


S L£E002 will cure the problem. 


FOR SALE 


Colin Hinz has а ЗЗКО teletype unit for sale ~ $60 plus shipping. 
He also has some games programs which he has written. | 
Dragonslayer -A maze adventure, Requires 12kRAM. $6, $9 оп disk. 

Life -ân adaption of Comway’s Automation Theory. $7, $10 оп disk. 
R.T.T.S. -б very good music program. Flags for several minutes, 
With notes on how to convert your oun tunes to "computermuzeak', 
Needs lower text space RAM and TOOLBOX. $6, $9 оп disk. Another 
similar program STING is the same price. 
Norad ~ War Games simulation. Not for the nervous. $6.50 & $9.50, 





Save $ô by sending your own disk, or $3 on cassettes (Qood 
quality only please). 
Colin Hinz, 1118 College Drive, Saskatoon, SASK. SN7 ONW? 


LOCAL GROUF NEWS | 


б group has formed іп the Niagara area. The first meeting Was 
held before the summer and another is planned at 7200 to 9100 on 
Tuesday September 20th. in Welland Public Library, King Street, 
Welland, Everybody welcome. Topics to he discussed include? 
short form commands, Word Fack, Atomcale, and printer output, 
For more information contact Doug McLaren, Box 66, Smithville. 

| 


The Halton and surrounding region local has continued to Meet at 
St. Marks school 2145 Upper Middle Road, Burlington.  Thene have 
been interesting talks including one by Tim Mackinnon on screen 
poking іп the higher graphic modes. Next meeting ~ Tuesday 
September 13th. at 7:30. Contact Fred Springer 905 Glenwood 
Burlington L7T 248. for more information. 

Fred knows of some people wishing to sell equipment. -а Zenith 
green screen monitor for $130 and a Gemini 10X printer fon $499, 
Both in mew condition with guarantee, Also one or two, fully 
expanded Atoms with printer interface. 








А NEM LOOK AT COLOUR from Tim Mackinnon 


When using colour Grarhicsy the resolution in these 
statements is less than that of normal cGrarhic statements 
(CLEAR4 ete.) However», if mo colour statements are defined 
and the colour mode is accessed through Рогі A of the 
Frogramable rerirheral interface adarter» then by using the 
table which follows the resolution of the colour Grarhic 
modes is eaual to that of the normal erarhic modes, 


Mode: Value; 
із #10 colour 
1 #30 
28 #50 colour 
2 | %70 
За #90 colour 
3 | ЖЕ0 
4га | #D0 colour 
4 | ФЕ 0 


|, These values аге accessed through Fort A bu turing 
ФЖЕй00с%Х», instead of the normal CLEARX:;COLOURX» where "X" 
stands for the mode value. It should be noted that when a 
Grarhic command is accessed through this ports the current 
contents of the screen are rreserved,. If а clear screen is 
desired then  CLEARX should he entered before the Previous 
command where X stands for the resolution to be used. There 
is one drawback to not using а colour statement. Апы FLOT 
or DRAW lines will arrear multi-coloured: however if you 
РЕЕК 8 FOKE any imaces they will arrear as normal, 


| The following ғговгам demonstrates at CLEAR4a» a desicn 
using the highest colour resolution rossible. The Frogram 
first uses a DRAW statement for s multi-coloured effect and 
a FOKE assembler routine for an inversed backaround. 


10DIMLL2s;F-1:F.$21;L 
201LLOLDAO£&80;STAEG1 

30LDAG0;STAS80; TAY; LDXG24 
40:LLiLDA (R80) у ҮЕОКОФ55 

506ТА(%80) Y YS INYFENELL 1 

é0INC£81;DEX; ENELL1 

7ORTS3 HF. $6 

BÜCLEAR4; 7#E000=#D0}LINKLLO 

9065z0;B-0 

100М0УЕ0,0 

110Ғ.Ха0701285.322-Х/4ж3 

120DRAWX» 95; DRAWNO s LOZ DRAH128 » (192-2) 5DRAH253 11923 
130DRAW(255-X) » 96$ DRAWZ55 » 0 $ DRAMI28 , Zê КАНО, O3 LINKLLO 
1406-A*1:7IFA21 A-0:G.170 

1507%Б002-%%4Б002: 

160B-E*1;IFB24 B=0 

170N.X 

180F.X-1TO100;LINKLLOGN.X 

1906.80 





5 CLEAR 0 
6 REM INITIATE COUNTER 
7 №0 
10 REM DRAW BOARD 
12 PRINT" ue 
13 PRINT" n? 
20P," 1 $2 13 
30 Р," ! pas 
40 Р," ! 84 
50 р,"--------------------!! 
60Р." 4 15 1а" 
70 Р," i per 
80 Р," ! 8: 
90 P p اسا‎ 2 
100P,"7 18 198 
110 P." ! i 
120 Р," ! me 


122 REM DIMENSION AND INITIATE 
124 REM ARRAY FOR SQUARES 

125 DIM 55(9) 

126 FOR 1-1 TO 9:58 (D -D2; NOT I 
127 REM RETURN CURSOR FÜR MESSAGE 
130 FOR Mei TO 22 

140 PRINT $409 

160 NEXT ¥ 

164 FOR A=1 TO 6 

165 PRINT $408 

167 NEXT A 

169 REM PROMPT X MOVE 

170 PRINT"X TURN" 

174 REM COUNT MOVES 

177 ен 

178 REM THE FOLLOWING SEQUENCE PUTS 
179 REM X IN THE DESIGNATED SQUARE 
180 INPUT X 

190 IF Х=1 THEN GOTO 490 

200 IF X-2 THEN GOTO 270 

210 IF X-3 THEN GOTO 310 

220 IF X=4 THEN GOTO 355 

230 IF X=5 THEN GOTO 380 

235 IF X-6 THEN GOTO 400 

240 IF X-7 THEN GOTO 420 

250 IF X-8 THEN GOTO 460 

260 IF X=9 THEN GOTO 530 

270 FOR W=1 TO 5 

280 PRINT $30B;NEXT Я 

290 FOR R-1 TO 10 

300 PRINT $#09;NEXT R 

305 55(2)=1 ;60Т0 570 

310 FOR R-1 TO 17 

320 PRINT $#09;NEXT R 

330 FOR E=1 TO 5 

350 PRINT $#0B} NEXT E 

353 SS(D-1:60T0 570 

355 FOR T-1 Т0 3 

360 PRINT $409:NEXT T 

375 PRINT $#0B 

377 565(4)-1:0070 570 


380 FOR 06-1 TO 10 

390 PRINT $#09}NEXT 0 
395 PRINT $#08 

397 55(5)=1;6070 570 

400 FOR Fz1 TO 17 

410 PRINT $309;:NEXT F 
415 PRINT $408 

417 55(6)-140070 570 

420 FOR Б-1 TO 3 

430 PRINT $#0A}NEXT B 
440 FOR V=1 TO 3 

450 PRINT $109;NEXT V 
455 55(7)=1;6010 570 

450 FOR U-t TO 3 

470 PRINT $#0A;NEXT U 
480 FOR X-1 TO 10 

485 PRINT $409;NEXT X 
487 SS(8)-1:G0TO 570 

490 FOR G-1 70 5 

300 PRINT $40B;NEXT 0 
310 FOR E=1 TO З 

820 PRINT $409;NEXT E 
327 55(1)=1 ;60Т0 570 

330 FOR C-1 TO 17 

S40 PRINT $#09}NEXT C 
550 FOR G-1 70 3 

560 PRINT $40A:NEXT G 
565 SS(9)-1:G0T0 570 

549 REM PRINT X AND CHECK WIN 
570 PRINT "X";GOTO 2010 
3/2 REM COUNT MOVES AND RETURN 
3/4 REM CURSOR FOR 0 TURN 
575 №№ 

580 PRINT$30 

400 FOR Wet 70 22 

610 PRINT $309 

620 NEXT ¥ 

630 FOR A=1 TO 9 

640 PRINT $40A;NEXT A 
450 PRINT "0 TURN" 

652 REM THE FOLLOWING SEQUENCE PUTS 
654 REM 0 IN THE DESIGNATED SQUARE 
&59 INPUT Y 

660 IF Ү=1 THEN GOTO 750 
670 IF Y-2 THEN GOTO 800 
480 IF Y=3 THEN GOTO 950 
690 IF Y-4 THEN GOTO 900 
700 IF Y=5 THEN GOTO 950 
710 IF Ү-6 THEN GOTO 1000 
720 IF Y-7 THEN GOTO 1050 
730 IF Y-8 THEN GOTO 1100 
740 IF Y=9 THEN СОТО 1150 
750 FOR і 70 5 

760 PRINT $40B;NEXT Q 
770 FOR E=1 TO 3 

780 PRINT $409;NEXT E 
790 SSC1)z2:G0T0 2000 
800 FOR W=i TO 5 

810 PRINT $40B;NEXT H 
820 FOR R=i TO 10 

830 PRINT $#09}NEXT К 
840 55(2)-2:0070 2000 
850 FOR 0-1 70 17 


840 PRINT $409:NEXT С 
870 FOR Е=1 TO 5 

880 PRINT $40B;NEXT E | 
890 5503)=2:00Т0 2000 
900 FOR T=1 Т0 3 | 
910 PRINT $&09;NEXT T | 
920 PRINT $#0B i 
930 55(43-2)0070 2000 
950 FOR Hei TO 10 | 
940 PRINT $809;NEXT M | 
970 PRINT $408 | 
980 SS(5)=23C0TO 2000 | 
1000 FOR F=1 TO 17 | 
1010 PRINT #09:МЕХТ F | 
1020 PRINT $408 | 
1030 SS(6)-2:G0TO 2000 | 
1050 FOR B-1 TO 3 | 
1060 PRINT $404;NEXT B 
1070 FOR V=1 TO 3 | 
1080 PRINT $#09;NEXT V — 
1090 SS(7)-2:G0T0 2000 | 
1100 FOR U-1 TO 3 | 
1110 PRINT $#0AtNEXT U | 
1120 FOR X=1 TO 10 | 
1130 PRINT $809]NEXT X / 
1140 SS(8)-2;G0TO 2000 | 
1150 FOR Cz1 TO 17 | 
1160 PRINT $#09}NEXT C. | 
1170 FOR G-1 TO 3 | 
1180 PRINT $804;NEXT G | 
1190 SS(9)-2;G0T0 2000 
2000 PRINT "D" | 

2010 PRINT$30 | 

2020 FOR H-1 TO 9 

2030 PRINT $430A:NEXT H 

2040 FOR 7-1 TO 22 

2050 PRINT $¥093NEXT Z | 

2060 REM XXCHECK FOR ЮМях 

2070 IF 55(1)-55(2) AND $5(1)=S8(3) GOTO 2150 
2072 IF 55(4)-65(5) AND 55(4)-62(6) GOTO 2150 
2076 IF SS(7)=95(8) AND 55(7)-56(9) GOTO 2150 
2080 IF 56(1)-55(5) AND 55(1)-56(9) GOTO 2150 
2084 IF 55(3)-55(5) AND $9(3)=8S(7) GOTO 2150 
2088 IF 55(1)-55(4) AND 55(1)-55(7) GOTO 2150 
2092 IF 95(7)=55(5) AND SS(2)-55(8) GOTO 2150 
2096 IF 5503)=55(4) AND 55(3)-55(9) GOTO 2150 
2097 REM CHECK FOR DRAW 
2098 IF N=? GOTO 2185 
2099 REM DESIGNATE WINNER 
2100 IF N-1 OR N-3 GOTO 575 
2110 IF N-5 OR №7 GOTO 575 

2120 GOTO 170 | 

2150 IF N-1 OR №3 РАМТ "X WINS " 
2160 IF N-5 OR №7 PRINT"X WING " 
2170 IF №2 OR N=4 PRINT "0 WINS " 
2180 IF N=6 OR N-8 PRINT "0 WINS " 
2184 GOTO 2190 

2185 PRINT$30 

2184 FOR G-1 TO 9 
2187 PRINT $40A:MEXT G 
2188 FOR U-1 TO 21 | 
2189 PRINT $409;NEXT UIPRINT "CATS GAME" 
2190 END 








